home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0769A.ZIP
/
DBLASERF.PRG
< prev
next >
Wrap
Text File
|
1987-01-08
|
3KB
|
45 lines
*****************************************************************
* PROGRAM FONT_F PUBLIC DOMAIN SOFTWARE *
* *
* This program creates memory variables to contain the printer *
* control strings used to invoke the fonts available on the *
* Laserjet font cartridge HP 92286F (TMS Proportional 2). *
* These fonts are: *
* *
* VARIABLE FONT NAME CHARACTERISTICS *
* courier_p Courier 10 portrait, native to Laserjet *
* courier_l Courier 10 landscape, native to Laserjet *
* large Helvetica bold prop, 14.4 point, portrait *
* roman Times Roman medium prop, 10 point, portrait *
* italic Times Roman italic prop, 10 point, portrait *
* bold Times Roman bold prop, 10 point, portrait *
* small Times Roman medium prop, 8 point, portrait *
* linepr Line Printer medium 16.66 chars/inch, portrait *
* *
* To use the font when printing from dBase, call this program *
* to set up the strings, then include the variables in your *
* print statements. *
* For example, @ 10,10 say bold + 'DBASE USER GROUP' + roman *
* will print the words DBASE USER GROUP in Times Roman bold. *
*****************************************************************
* AUTHOR: Barbara Moss DATE: 8-JAN-87 *
*****************************************************************
* This program may be copied freely, and altered to suit your *
* own requirements. It may not be sold for profit. *
*****************************************************************
public courier_l, roman, bold, italic, courier_p, large, small, linepr
escape = chr(27)
portrait = escape+'&l0O'
landscape = escape+'&l1O'
fullset = escape+'(8U'
roman = portrait+fullset+escape+'(s1p10v0s0b5T'
bold = portrait+fullset+escape+'(s1p10v0s3b5T'
italic = portrait+fullset+escape+'(s1p10v1s0b5T'
courier_p= portrait+fullset+escape+'(s0p10h12v0s0b3T'
courier_l=landscape+fullset+escape+'(s0p10h12v0s0b3T'
large = portrait+fullset+escape+'(s1p14.4v0s3b4T'
small = portrait+fullset+escape+'(s1p8v0s0b5T'
linepr = portrait+fullset+escape+'(s0p16.66h8.5v0s0b0T'
return